<% function cutstr(tempstr,tempwid) if len(tempstr)>tempwid then cutstr=left(tempstr,tempwid)&"..." else cutstr=tempstr end if end function%>

<% call ShowSmallClass_Tree() %>

<% Set rsmenu = Server.CreateObject("ADODB.Recordset") sql="select Content from culture where Title='左侧联系方式'" rsmenu.open sql,conn,1,3 %> <%=rsmenu("Content")%> <%rsmenu.close set rsmenu=nothing %>

公司简介

<% Set rsmenu = Server.CreateObject("ADODB.Recordset") sql="select Content from culture where Title='首页公司简介'" rsmenu.open sql,conn,1,3 %> <%=rsmenu("Content")%> <%rsmenu.close set rsmenu=nothing %>

产品展示

<% set rs_Product=server.createobject("adodb.recordset") 'sqltext="select top " & Product_count & " * from CompVisualize order by id desc" sqltext="select top 10 * from Product where Passed=True and Elite=true order by UpdateTime desc" rs_Product.open sqltext,conn,1,1 %> <% If rs_Product.eof and rs_Product.bof then response.write "" else row_count=1 Do While Not rs_Product.EOF%> <% if row_count mod 10 =0 then%> <%end if%> <% rs_Product.MoveNext row_count=row_count+1 Loop end if rs_Product.close %>

还没任何产品

" width="130" border="1" />

" class="middle"><%=rs_Product("explain")%>

产品展示

<% set rs_Product=server.createobject("adodb.recordset") sqltext="select top 6 * from Product where Passed=True and Elite=true order by UpdateTime desc" rs_Product.open sqltext,conn,1,1 %> <% If rs_Product.eof and rs_Product.bof then response.write "" else row_count=1 Do While Not rs_Product.EOF%> <% if row_count mod 3 =0 then%> <%end if%> <% rs_Product.MoveNext row_count=row_count+1 Loop end if rs_Product.close %>

还没任何产品

width="160" height="120" border=0 >

"><%=rs_Product("Title")%>

最新公告

<% Set rsmenu = Server.CreateObject("ADODB.Recordset") sql="select Content from culture where Title='最新公告'" rsmenu.open sql,conn,1,3 %> <%=rsmenu("Content")%> <%rsmenu.close set rsmenu=nothing %>

新闻中心

<% set rs_news=server.createobject("adodb.recordset") sqltext4="select top 9 * from news where BigClassName='企业新闻' order by id desc" rs_news.open sqltext4,conn,1,1 %> <%i=0 do while not rs_news.eof%>

" class="tdfont" ><%=cutstr(rs_news("title"),13)%>

<%rs_news.movenext i=i+1 if i=60 then exit do loop rs_news.close %> <% Set rs = Server.CreateObject("ADODB.Recordset") sql="select OverseasMarket from Market" rs.open sql,conn,1,1 %> <%=rs("OverseasMarket")%> <% rs.close set rs=nothing %>